Initialisation

If the internet isn’t working this will automatically load the temperature data so you can still do the activity.

tempdata={24.72`,25.67`,28,25.67`,25.17`,24.56`,24.83`,24.83`,26.11`,28.33`,28.17`,28.83`,28.28`,28.06`,24.33`,24.61`,24.61`,25.72`,27.22`,27.67`,26.39`,23.94`,24.89`,25.94`,24.17`,24,24.67`,24.28`,25.28`,27.78`,26.17`,25.44`,25,25.06`,23.28`,24.11`,22.61`,23.06`,22.67`,23.5`,24.28`,25.22`,24.61`,23.72`,23.39`,24.33`,21.44`,22.89`,22.33`,22,22.28`,24.72`,23.72`,25.28`,27.39`,25.11`,23.39`,23.78`,23.72`,24.94`,23.28`,21.17`,22.67`,22.89`,22.83`,21.89`,22.39`,23.11`,22.67`,23.67`,23.17`,22.78`,22.72`,23.5`,23.83`,25.17`,25.17`,21.89`,23.06`,21.33`,23.28`,24.5`,26.11`,23.89`,24.56`,23.89`,23.61`,22.5`,24.5`,21.83`,21.44`,22,22.39`,22.06`,21.56`,20.61`,20.22`,19.78`,20.22`,20.44`,20.44`,21.33`,19.83`,19.67`,21.44`,21.72`,20.61`,21.89`,21.5`,19.83`,18.39`,19.22`,21.44`,22.44`,20.5`,21.39`,20.44`,19.22`,20.28`,20.5`,20.22`,20.67`,21,17.89`,19.67`,18.94`,18.67`,19,18.67`,18.89`,17.78`,17.5`,18.61`,19.28`,19.22`,18.39`,15.56`,16.94`,15.67`,14.5`,14.06`,15.5`,14.44`,16.06`,17.28`,17.33`,17.17`,18.67`,17,17.67`,17.06`,17.17`,18.61`,17.17`,15,16.28`,17.44`,17.89`,17.22`,18.17`,17.94`,17.06`,18.94`,19.5`,18.11`,16.22`,14.83`,14.17`,13.78`,13.67`,14.67`,15.11`,12.06`,13.72`,15.28`,12.67`,13.17`,14.61`,16.44`,16.39`,16.22`,14.22`,16.22`,18.61`,19,18,17.61`,16.33`,16.39`,15,15.06`,14.67`,15.89`,15,14.94`,15.17`,16.22`,16.61`,16.22`,16.28`,19.06`,16.61`,15.56`,14.17`,13.39`,15.78`,16.94`,15.28`,15.78`,16.22`,16.33`,14.89`,16.94`,15.67`,17.39`,15.39`,15.33`,15.5`,16.39`,17.11`,15.83`,15.06`,17.06`,17.89`,20.06`,19.67`,19.78`,16.89`,15.28`,18.5`,18,17.78`,14.33`,14,13.67`,16.56`,16.89`,17.94`,17.89`,18.28`,19.33`,18,19.67`,21.28`,19.5`,19.44`,17.89`,17.39`,17,18.28`,18.94`,18.89`,19.89`,19.78`,21.44`,21.67`,21.56`,20.67`,21,19.5`,21.11`,20.72`,22.83`,20.67`,19.11`,19.83`,21.33`,23.67`,23.61`,23.94`,22.67`,23.94`,23.11`,21.89`,17.89`,20.83`,23.06`,23.89`,21.39`,20.5`,22.89`,24.56`,23.22`,25.11`,20.5`,21.22`,21.83`,22.28`,19.17`,21.56`,22.17`,22.78`,23.22`,24.44`,23.83`,21.28`,23,21.44`,22.89`,21.67`,22.17`,21.17`,22.67`,24.33`,20.89`,19.89`,20.28`,21.61`,22.94`,24,24.06`,23.89`,23.78`,23.83`,21.33`,23.78`,22.22`,20.22`,19.78`,22.83`,23.11`,23.61`,24.39`,23.94`,24.78`,23.72`,21.83`,21.89`,24.06`,25.11`,19.5`,20.67`,21.44`,21.78`,24.17`,25.67`,21,22.28`,22.89`,23.83`,25.56`,24.83`,23.39`,24.11`,25,25.39`,24.17`,22.78`,23,23.11`,24.44`,24.83`,25.28`,26.72`,26.28`,26.33`,25.22`,26.33`,27,25.5`,25.28`};
nytempdata={-1.44`,3.89`,-1.83`,-1.22`,1,2.72`,2.89`,5.56`,3.67`,4.78`,7.33`,4.44`,7.61`,6.61`,8.44`,5.11`,2.17`,3.44`,2.22`,-0.78`,5.94`,0.28`,-2.5`,-9.61`,-9.56`,-8.56`,-7,-3.89`,-2.44`,1.78`,5.78`,10.61`,-1.56`,-3.89`,-2.83`,-2.28`,-1.94`,-0.61`,-1.22`,0.72`,-2,-5.67`,3.06`,5.61`,1.72`,1.72`,1.94`,5.28`,-0.56`,-7,0.06`,4.22`,-3.17`,-2.94`,2.89`,2.94`,1.61`,2.78`,4.06`,5.89`,3.22`,3.22`,0.94`,1.17`,0.83`,3.39`,2.44`,0.61`,3.5`,2.67`,3.89`,8.33`,6.94`,4.11`,0.89`,5.72`,0.67`,0.22`,1.33`,3.39`,3.61`,0.11`,2.17`,2.61`,3.17`,2.56`,5.28`,5.44`,7.22`,6.94`,5.28`,9.5`,3.94`,2.89`,2.56`,5.06`,6.5`,3.67`,7.72`,9.83`,13.44`,12.33`,8.39`,5.28`,7.83`,8.33`,7.67`,11.67`,10.72`,11.39`,13.28`,8.11`,5.39`,6.67`,7.94`,11.11`,8.61`,12.56`,9.28`,11.61`,11.22`,11.94`,9.39`,11.28`,9,8.22`,8.22`,10.44`,15.89`,13.39`,13.78`,15.83`,16.06`,11.5`,8.5`,10.61`,14.61`,16.33`,14.89`,13.89`,13.89`,16.72`,18,17.56`,16.5`,8.11`,10.28`,13.28`,14.72`,14.28`,22.39`,19.11`,21.61`,19.83`,19.28`,20.11`,17.78`,15.22`,16.5`,18.5`,21.17`,18.72`,18.94`,22.06`,19.33`,14.17`,18.56`,19,21.22`,20.44`,20.06`,17,18,18,19.28`,21.33`,24.89`,26,22.89`,22.94`,22.44`,21.94`,22.22`,22.06`,22.44`,24.89`,23.94`,24.56`,27.39`,26.83`,25,24.94`,25.78`,24.44`,24.11`,24,25.78`,27.61`,29.33`,26.61`,28.61`,28.44`,26.22`,24.11`,24.22`,26.56`,21.94`,18,21.33`,22.61`,22.56`,23.78`,22.89`,22.78`,21.39`,23.89`,22.06`,21.06`,20.5`,22,22.67`,23.28`,24.5`,23.28`,23.22`,22.44`,21.22`,20.61`,19.22`,22.22`,21.72`,19.94`,21.89`,22.83`,23.44`,22.67`,22,22.06`,21.22`,23.67`,24.06`,23.22`,21.28`,23.78`,23.78`,24.44`,22.83`,22,22.5`,18.33`,16.67`,23.22`,18.11`,20.83`,22.94`,23.67`,21.83`,16.72`,16.22`,17.44`,15.44`,12.72`,15.33`,16.72`,19.17`,19.72`,13.78`,13.11`,16.94`,15.28`,14.22`,16.11`,15.44`,16.17`,19.72`,22,21.67`,21.11`,20.11`,19,21.22`,16.56`,15,15.22`,17.67`,18.61`,16.17`,13.61`,14.67`,15.17`,17.67`,17.83`,13.56`,14.94`,12.22`,14.67`,10.83`,8.56`,7.94`,8.28`,11.22`,8.89`,11.11`,8.33`,12.72`,17.56`,15.5`,10.89`,3.39`,4.33`,9.44`,14.56`,7.67`,6.06`,9.06`,9.72`,10.89`,0.28`,2.28`,7.33`,9.72`,8.61`,13.83`,11.89`,2.67`,0.94`,10.22`,8.78`,-0.33`,-3.89`,2.5`,10.33`,2.5`,0.33`,-1.11`,5.5`,6.06`,4.94`,6.5`,9.17`,11.56`,3.22`,0.11`,0.22`,2.22`,-0.72`,-1.22`,-4.17`,0,3.94`,1.56`,-2.72`,-3.56`,0,4.44`,8.61`,11.89`,12.83`,7.11`,-1.11`,-0.94`,1.5`,2.28`,6.67`,6.28`,-3.5`};
cairotempdata={15.5`,14.56`,15.28`,15.17`,14.94`,14.39`,14.5`,13.61`,12.72`,9.56`,9.5`,12.22`,14.28`,15.06`,14.39`,13.28`,14.5`,16.22`,15.28`,15.39`,16.89`,19.72`,19.56`,15.89`,16.89`,19.39`,17.39`,15.78`,13.11`,13.72`,14.67`,12.83`,13.11`,13.56`,16.61`,18.39`,21.11`,15.83`,16.61`,17.33`,16.06`,14.67`,15.28`,14.17`,15,17.5`,15.56`,15.06`,15.11`,15.28`,14.94`,16.94`,19.44`,20.89`,17.83`,17,19.39`,19.78`,16.89`,16.89`,15.61`,19.83`,23.22`,17.56`,15.72`,15.22`,15.39`,19.83`,18.17`,20.28`,24.17`,27.89`,21.94`,26.11`,27.56`,17.94`,16.22`,15.67`,16.17`,18.22`,21.67`,21.44`,17.44`,16.83`,18.56`,21.33`,19.39`,21.44`,23.06`,21.39`,26.94`,24.72`,22.78`,25.94`,18.89`,19.33`,21.5`,27.61`,21.78`,19.56`,18.89`,19.22`,18.83`,19.17`,20.5`,21.78`,18.83`,18,18.5`,18.5`,18.06`,17.78`,18.56`,19.11`,20.39`,21.39`,21.83`,23.22`,25.94`,29.44`,26.78`,26.17`,25.72`,24.89`,26.44`,27.06`,26.44`,26,24.72`,25.67`,25.28`,25.22`,23.33`,26.61`,23,22.39`,23.44`,26,27.78`,30.44`,26.94`,27.39`,28.61`,28.89`,30.22`,25.61`,24.61`,26.28`,29.44`,33.56`,30.39`,32.89`,29.28`,35.78`,27.28`,25.22`,25.5`,29.28`,28.78`,33.17`,26.22`,26.5`,28,28,25.06`,25.22`,25.06`,25,26.83`,28.39`,29.28`,30.89`,30.22`,29.5`,29.17`,29.5`,29.72`,29.06`,27.33`,27.78`,27.28`,27.5`,25.72`,26.17`,27.22`,27.39`,26.67`,26.11`,26.94`,26.83`,26.78`,27.56`,27.28`,27.44`,27.78`,27.78`,28.11`,27.44`,27.72`,27.44`,27.22`,27.67`,27.11`,27.39`,27.72`,27.72`,28.06`,28.78`,29.17`,29.78`,30.11`,29.67`,29.61`,30.67`,30.67`,29.5`,28.28`,29.67`,29.78`,29.83`,29.5`,28.89`,29.17`,29.5`,29.39`,28.56`,28.61`,29.28`,29.83`,29.78`,28.78`,28.33`,29.28`,29.67`,29.28`,29.17`,28.33`,27.89`,27.72`,28.22`,29.17`,29.61`,29.11`,28.28`,27.78`,27.78`,27.5`,27.39`,27.44`,27.22`,26.39`,27.17`,27.22`,26.61`,26.89`,26.78`,28.67`,28.72`,27.11`,25.78`,27.72`,30.83`,32.28`,27.56`,27.78`,28.06`,26.33`,25.56`,24.67`,24.06`,24.78`,25.17`,27.78`,25.67`,22.89`,20.61`,20.39`,20.89`,21.39`,23.28`,23.06`,22.94`,24,24.22`,24.44`,24.17`,22.89`,25.22`,24.72`,22.11`,21.28`,21.94`,22.17`,21.83`,21.06`,21,20.78`,20.83`,20.22`,20.22`,21.44`,19.22`,21.22`,21.83`,21.72`,21.22`,22.56`,23.11`,21.67`,20.22`,20.67`,21.06`,21.89`,21.56`,20.56`,21,20.78`,19.44`,18.44`,18.5`,18.94`,20,22.61`,21.06`,19.5`,25.5`,27.83`,24.56`,20.44`,17.72`,16.72`,20.83`,25.67`,23.28`,19.44`,17.72`,16.28`,17,17.28`,14.56`,14.39`,12.94`,9.28`,8,10.44`,10.83`,10.78`,12.22`,8.83`,13.44`,13.61`,13.67`,13.67`,13.94`,16.67`,16,16.06`,15.17`,13.83`,14.83`,14};

Presenting Data

Let’s get some data: (If the Internet isn’t working skip to Column Graphs)

Okay this is going to get a little messy, but we're going to use some real data and life is messy :

Now we extract just the temperature data we want: (click on the code below and press ⇧+⌤)

data=WolframAlpha["brisbane temperatures 2013",{{"TemperatureChart:WeatherData",1},"ComputableData"}]

To do this yourself:
Click the little plus symbol in the right-hand corner on the question we wrote
Now, right-click on the graph and select “Paste Input For” and then “Computable Data”
This will pull out just the temperature data that we want
Add “data =” to the front of the code and press ⇧+⌤... it can take a bit of time, just let it process

Next we just want the temperatures for this graph. The code below gets out just the temperature information:
Remember to press ⇧+⌤ to run each line of code...

tempdata=data[[1,1,All,2,1]]

So we’ve now got our temperature data for Brisbane 2013 stored in a variable originally named “tempdata”.

Column Graphs / Bar Charts

So we’ll start by drawing our temperature data as a column graph, or bar chart.

First we need to work out the size of the bars, using BinCount. Let's use 10 as the lowest temperature, 30 as the highest temperature and we' ll have each bar 4 wide (I picked these numbers by looking at the range of values on the line graph we got the data from):

groupdata=BinCounts[tempdata,{10,30,4}]

Now we can do a column graph, or bar chart, of our temperature data:

BarChart[groupdata]

To add labels to the columns add “ChartLabels”, as shown below: (To draw the arrow use -> ; it will change automatically)

BarChart[groupdata,ChartLabels->{"10-13","14-17","18-21","22-25","26-29"}]

Now we’ll do a simpler example using some data from your textbook:

Construct a column graph to show the weekly income ($) of 24 Year 11 students:

({{$75, $115, $60, $54, $88, $0, $98, $102}, {$56, $45, $83, $71, $40, $37, $87, $117}, {$43, $79, $58, $89, $70, $105, $99, $55}})

Maths Quest Maths A Year 11 for Queensland, p344

Construct a frequency table as follows:

({{Income, Tally, Frequency}, {0-20, I, 1}, {21-40, II, 2}, {41-60, IIIIIII, 7}, {61-80, IIII, 4}, {81-100, IIIIII, 6}, {101-120, IIII, 4}})

To draw a column or bar graph put the Frequency values in the function “BarChart”, as shown below.

Click on the command line below and press ⇧+⌤ to run it:

BarChart[{1,2,7,4,6,4}]

To add labels to the columns add “ChartLabels”, as shown below:

To draw the arrow use -> (it will change automatically)

BarChart[{1,2,7,4,6,4},ChartLabels->{"0-20","21-40","41-60","61-80","81-100","101-120"}]

Practise

The following list shows the number of students in a class with different coloured eyes:

Brown, Green, Blue, Brown, Brown, Blue, Hazel, Brown, Green, Brown, Blue, Hazel, Hazel, Brown, Brown, Blue.

Construct a table from the data and use the table to draw a bar graph with chart labels in Mathematica.

Answer (click on the little down arrow on the left-hand edge of this line to reveal the answer)

Grid[Tally[{"Brown","Green","Blue","Brown","Brown","Blue","Hazel","Brown","Green","Brown","Blue","Hazel","Hazel","Brown","Brown","Blue"}],Frame-> All]

NOTE: To change the colours to match as shown we use “ChartStyle”

BarChart[{7,2,4,3},ChartLabels->{"Brown","Green","Blue","Hazel"},ChartStyle-> {Brown,Green,Blue,Yellow}]

Pie Charts / Sector Graphs

Let’s show our temperature data as a pie chart:

PieChart[tempdata]

Too many sectors... we need to use the grouped data again:

PieChart[groupdata,ChartLabels->{"10-13","14-17","18-21","22-25","26-29"}]

Another example

Construct a sector graph to show the weekly income ($) of the 24 Year 11 students from the table earlier.
Let’s make this one 3D just for the look of it:

PieChart3D[{1,2,7,4,6,4},ChartLabels->{"0-20","21-40","41-60","61-80","81-100","101-120"}]

Practise

The following list shows the number of students in a class with different coloured eyes:

Brown, Green, Blue, Brown, Brown, Blue, Hazel, Brown, Green, Brown, Blue, Hazel, Hazel, Brown, Brown, Blue.

Construct a table from the data and use the table to draw a pie graph with chart labels in Mathematica.

Answer

Grid[Tally[{"Brown","Green","Blue","Brown","Brown","Blue","Hazel","Brown","Green","Brown","Blue","Hazel","Hazel","Brown","Brown","Blue"}],Frame-> All]

PieChart[{7,2,4,3},ChartLabels->{"Brown","Green","Blue","Hazel"},ChartStyle-> {Brown,Green,Blue,Yellow}]

Histograms

To draw a histogram in Mathematica we just put in the original values and say how many bars we wants:

You can also move the mouse over each bar to see how many are in it.

Histogram[{75,115,60,54,88,0,98,102,56,45,83,71,40,37,87,117,43,79,58,89,70,105,99,55},6]

Try the temperature data we used earlier... it’s still stored in Mathematica’s memory as “tempdata”:

Histogram[tempdata,10,ChartStyle->2]

As you can see, “ChartStyle” changes the way the chart looks. Try some different numbers for different colour schemes.

Count the number of bars above (hint: there aren’t 10). Mathematica will sometimes decide to use more or less bars than you select if it produces better bar sizes.

Practise

Draw a histogram for the following data:

Grid[{Round[RandomReal[100,20],0.1]},Frame-> All, Spacings-> {2,2}]

Answer

Histogram[{58.3,91.3,6.6,26.1,2.7,20.9,73.7,20.1,80.4,79.4,93.7,26.4,7.9,61.7,51.9,68.3,89.1,34.5,52.1,49.3},5,ChartStyle->5]

Stem and Leaf Plots

We need to load up the “Statistical Plots” function set to do a stem and leaf plot:

Needs["StatisticalPlots`"]

To draw a stem and leaf plot of the weekly income of the Year 11 students we use the function “StemLeafPlot”:

StemLeafPlot[{75,115,60,54,88,0,98,102,56,45,83,71,40,37,87,117,43,79,58,89,70,105,99,55}]

Notice that there are no stems shown between 0 and 3. This is because there are no values in the 10s and 20s. We can show these stems so the plot is properly spaced using “IncludeEmptyStems”:

StemLeafPlot[{75,115,60,54,88,0,98,102,56,45,83,71,40,37,87,117,43,79,58,89,70,105,99,55},IncludeEmptyStems->True,Leaves->{"Digits","LeafSpacing"->2}]

The “Leaves” section adds a “LeafSpacing” of 2 between the leaf “Digits” just to make it look better.

More detailed example

Consider the following data that goes to two decimal places.

stemdata={70.34,65.11,72.9,66.95,68.69,69.6,70.88,72.44,74.17,75.32,75.6,69.76,66.25,71.29,68.32,69.75,71.3,68.36,70.59,72.43,71.81};
StemLeafPlot[stemdata,Leaves->{"Digits","LeafSpacing"->2},IncludeEmptyStems->True]

Notice how with this plot it’s only showing the tens and the units values. What if we want the stems to be 65, 66, 67, etc...? To do this we use “StemExponent”: 0 means units column, 1 means tens, 2 means hundreds, and so on... because (10^0)=1; (10^1)=10; (10^2)=100.

We also want to have a certain number of digits for the leaves, which we use “LeafDigits” to alter.

StemLeafPlot[stemdata,Leaves->{"Digits","LeafSpacing"->2,"LeafDigits"->1},IncludeEmptyStems->True,StemExponent->0]

Change the values for “StemExponent” and “LeafDigits” and see what happens. Remember, the data set is still the same, you’re just changing what the plot looks like.

We can also plot two different sets of related data on the one stemplot, back-to-back:

StemLeafPlot[{1.2,2.5,4.1,1.6,3.8},{2.3,2.8,1.4,3.6},Leaves->{"Digits","LeafSpacing"->2}]

Practise

Draw a stem and leaf plot for the following data:

Grid[{RandomInteger[100,20]},Frame-> All, Spacings-> {2,2}]

Answer

StemLeafPlot[{51,12,97,70,47,82,80,7,2,19,72,72,95,55,99,46,55,1,11,63},Leaves-> {"Digits","LeafSpacing"-> 2}]

Box and Whisker Plots

We can also construct box and whisker plots in Mathematica:

BoxWhiskerChart[tempdata]

Notice how it automatically puts the bar vertically, whereas we usually do the bar horizontally. We want to fix that:

BoxWhiskerChart[tempdata,BarOrigin->Left]

Hover the mouse over the bar and you’ll see the 5 Number Summary of the data.

Another example

Draw a box and whisker plot for the data below:

Grid[{RandomInteger[100,10]},Frame-> All, Spacings-> {2,2}]

BoxWhiskerChart[{60,69,45,72,27,38,59,92,100,93},BarOrigin->Left]

Parallel Box Plots

We can have a plot with more than one bar as well. Here’s the temperature data from a couple of other cities:

nydata=WolframAlpha["new york temperatures 2013",{{"TemperatureChart:WeatherData",1},"ComputableData"}]

nytempdata=nydata[[1,1,All,2,1]]

cairodata=WolframAlpha["cairo temperatures 2013",{{"TemperatureChart:WeatherData",1},"ComputableData"}]

cairotempdata=cairodata[[1,1,All,2,1]]

Graph the temperature data

BoxWhiskerChart[{tempdata,nytempdata,cairotempdata},BarOrigin->Left,ChartLabels->{"Brisbane","New York","Cairo"},ChartStyle->10]

So what comment can we make about the temperatures in Brisbane, New York City and Cairo?

Practise

The table below show the results of ten students for their English (top row), Maths A (middle) and Chemistry (bottom) tests.
Draw a parallel box and whisker plot for the data:

Grid[{RandomInteger[100,10],RandomInteger[100,10],RandomInteger[100,10]},Frame-> All, Spacings-> {2,2}]

Comment on what this data tells us about the three subjects.

Answer

BoxWhiskerChart[{{72,90,12,99,6,76,84,80,98,81},{26,11,60,68,84,51,39,73,19,69},{33,48,57,78,16,75,55,59,61,32}},BarOrigin->Left,ChartLabels->{"English","Maths A","Chemistry"},ChartStyle->2]

Exercises

Load the following data of religious affliliations of Australians into the variable “ozReligiousData”:

ozReligiousData=CountryData["Australia", "ReligionsFractions"]

Now let’s split it up into the percentages:

ozReligiousPercents=ozReligiousData[[All,2]]

and the names:

ozReligiousNames=ozReligiousData[[All, 1]]

Draw a pie chart showing the percentages, labeled with the names:

Draw a 3D bar chart showing the same information:

Draw a histogram of the following data:

Grid[{Round[RandomReal[100,20],0.1]},Frame-> All, Spacings-> {2,2}]

Draw a stem and leaf plot of the Brisbane temperature data, with the decimal portion as the leaves and rounded to one decimal place:

Draw a column graph for the following table showing how many goals a soccer team scored during a season:

Grid[{{"Goals","Frequency"},{1,RandomInteger[5]},{2,RandomInteger[7]},{3,RandomInteger[5]},{4,RandomInteger[4]},{5,RandomInteger[3]}},Frame-> All,Spacings->{2,2}]

Draw a parallel box and whisker chart for the following data which show the scores of Tom and Phil in their last 10 cricket innings:

Grid[{RandomInteger[100,10],RandomInteger[100,10]},Frame-> All, Spacings-> {2,2}]

Comment on who is the more ‘reliable’ batsman.

Solutions

PieChart[ozReligiousPercents,ChartLabels->ozReligiousNames]

BarChart3D[ozReligiousPercents,ChartLabels->ozReligiousNames,ChartStyle->12]

Histogram[{"Enter the data here"},5,ChartStyle->5]

StemLeafPlot[tempdata,Leaves->{"Digits","LeafSpacing"->2,"LeafDigits"->1},IncludeEmptyStems->True,StemExponent->0]

BarChart[{3,1,4,3,1},ChartLabels->{1,2,3,4,5},ChartStyle->1]

BoxWhiskerChart[{"Enter first line here"},{"Enter second line here"},BarOrigin->Left,ChartLabels->{"Tom","Phil"},ChartStyle->23]